home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
gfx
/
fract
/
FlashMandel.lha
/
FlashMandel
/
Sources
/
Modules
/
Gfx.c
< prev
next >
Wrap
C/C++ Source or Header
|
1999-01-22
|
7KB
|
283 lines
/**********************************************************************************************************
**
** Coded by Dino Papararo 16-Jan-1999
**
** FUNCTION
**
** Fade -- perform screen color fading from/to black.
**
** SYNOPSIS
**
** BOOL Fade (struct Window *Win,ULONG *PaletteSrc,ULONG MaxStep,ULONG TimeDelay,BOOL ToBlack)
**
** DESCRIPTION
**
** According with ToBlack value screen will fade from black to PaletteSrc or from PaletteSrc to black.
**
** MaxStep is number of times colors will be decreased/increased from/to black.
**
** TimeDelay is the wait time between two palette changes, is necessary for multitasking and faster cpu.
**
** RETURN
**
** FALSE if screen proprieties not available or Depth < 2 or MaxStep < 2, TRUE color cycling performed.
**
***********************************************************************************************************
**
** Coded by Claudio Pucci & Dino Papararo 26-Oct-1997
**
** FUNCTION
**
** Cycle -- perform screen color cycling.
**
** SYNOPSIS
**
** BOOL Cycle (struct Window *Win,ULONG TimeDelay,BOOL Left)
**
** DESCRIPTION
**
** Function uses a double sized table to manage color cycling.
**
** So we do not need to save and shift all colors for every cycle,
**
** but only save and set correct first and last values !
**
** This function do not load the first four color registers reserved for GUI pens.
**
** RETURN
**
** FALSE if screen proprieties not available or Depth < 2, TRUE color cycling performed.
**
**********************************************************************************************************/
#define __USE_SYSBASE
#include <exec/types.h>
#include <proto/dos.h>
#include <proto/intuition.h>
#include <proto/graphics.h>
#include <proto/gadtools.h>
#include <intuition/intuition.h>
#include <graphics/gfxbase.h>
#define RAW_ESC 0x45
#define RESERVED_PENS 4L
#define BLACK 0L
BOOL Fade (struct Window *,ULONG *,ULONG,ULONG,BOOL);
BOOL Cycle (struct Window *,ULONG,BOOL);
BOOL Fade (struct Window *Win,ULONG *PaletteSrc,ULONG MaxStep,ULONG TimeDelay,BOOL ToBlack)
{
DisplayInfoHandle DHandle;
struct DisplayInfo DInfo;
static ULONG PaletteTmp [3L * 252L + 2L];
LONG Var,Step;
ULONG Range,ModeID;
BOOL AllBlack;
if ((Win->RPort->BitMap->Depth < 2L) || (MaxStep < 2L)) return FALSE;
ModeID = GetVPModeID (ViewPortAddress (Win));
DHandle = FindDisplayInfo (ModeID);
if (GetDisplayInfoData (DHandle,(UBYTE *) &DInfo,sizeof (struct DisplayInfo),DTAG_DISP,ModeID))
{
if (DInfo.PropertyFlags & DIPF_IS_EXTRAHALFBRITE) Range = 32L - 4L;
else Range = (1L << Win->RPort->BitMap->Depth) - 4L;
PaletteTmp [0L] = (Range << 16L) + 4L;
GetRGB32 (ViewPortAddress (Win)->ColorMap,4L,Range,&PaletteTmp [1L]);
PaletteTmp [3L * Range + 1L] = NULL;
if (ToBlack)
{
for (Step = 0L; Step <= MaxStep; Step++)
{
AllBlack = TRUE;
for (Var = 1; Var <= 3L * Range; Var++)
{
if (PaletteTmp [Var])
{
PaletteTmp [Var] = (((PaletteSrc [Var + (3 * RESERVED_PENS)] >> 24L) * (MaxStep - Step)) / MaxStep) << 24L;
AllBlack = FALSE;
}
}
if (AllBlack) break;
WaitTOF ();
LoadRGB32 (ViewPortAddress (Win),PaletteTmp);
Delay (TimeDelay);
}
}
else
{
for (Step = MaxStep; Step >= 0L; Step--)
{
for (Var = 1; Var <= 3L * Range; Var++)
PaletteTmp [Var] = (((PaletteSrc [Var + (3 * RESERVED_PENS)] >> 24L) * (MaxStep - Step)) / MaxStep) << 24L;
WaitTOF ();
LoadRGB32 (ViewPortAddress (Win),PaletteTmp);
Delay (TimeDelay);
}
LoadRGB32 (ViewPortAddress (Win),PaletteSrc);
}
return TRUE;
}
return FALSE;
}
BOOL Cycle (struct Window *Win,ULONG TimeDelay,BOOL Left)
{
DisplayInfoHandle DHandle;
struct DisplayInfo DInfo;
struct IntuiMessage *Message;
static ULONG Palette_Tmp [2L * 3L * 252L + 2L];
BOOL Loop = TRUE;
UWORD MyCode = 0;
ULONG MyClass = NULL,Counter = NULL,OldBlue,OldRed,Tmp_1,Tmp_2,HalfRange;
ULONG ModeID,Range;
if (Win->RPort->BitMap->Depth < 2L) return FALSE;
ModeID = GetVPModeID (ViewPortAddress (Win));
DHandle = FindDisplayInfo (ModeID);
if (GetDisplayInfoData (DHandle,(UBYTE *) &DInfo,sizeof (struct DisplayInfo),DTAG_DISP,ModeID))
{
if (DInfo.PropertyFlags & DIPF_IS_EXTRAHALFBRITE)
{
Range = 64L - 8L;
HalfRange = Range >> 1L;
GetRGB32 (ViewPortAddress (Win)->ColorMap,4L,HalfRange,&Palette_Tmp [1L]);
GetRGB32 (ViewPortAddress (Win)->ColorMap,4L,HalfRange,&Palette_Tmp [3L * HalfRange + 1L]);
GetRGB32 (ViewPortAddress (Win)->ColorMap,4L,HalfRange,&Palette_Tmp [3L * (2L * HalfRange) + 1L]);
GetRGB32 (ViewPortAddress (Win)->ColorMap,4L,HalfRange,&Palette_Tmp [3L * (3L * HalfRange) + 1L]);
Palette_Tmp [3L * 2L * (4L * HalfRange) + 1L] = NULL;
}
else
{
Range = (1L << Win->RPort->BitMap->Depth) - 4L;
GetRGB32 (ViewPortAddress (Win)->ColorMap,4L,Range,&Palette_Tmp [1L]);
GetRGB32 (ViewPortAddress (Win)->ColorMap,4L,Range,&Palette_Tmp [3L * Range + 1L]);
Palette_Tmp [2L * 3L * Range + 1L] = NULL;
}
Palette_Tmp [0L] = (Range << 16L) + 4L;
if (! Left) Counter = Range + 1L;
while (Loop)
{
if (Win->UserPort->mp_SigBit)
{
if (Message = (struct IntuiMessage *) GT_GetIMsg (Win->UserPort))
{
MyClass = Message->Class;
MyCode = Message->Code;
GT_ReplyIMsg ((struct IntuiMessage *) Message);
}
switch (MyClass)
{
case IDCMP_MOUSEBUTTONS: if (MyCode == SELECTDOWN) Loop = FALSE;
break;
case IDCMP_MENUPICK : Loop = FALSE;
break;
case IDCMP_RAWKEY : if (MyCode == RAW_ESC) Loop = FALSE;
break;
}
}
if (Left)
{
Counter++;
if (Counter > Range) Counter = 1L;
}
else
{
Counter--;
if (Counter < 1L) Counter = Range;
}
Tmp_1 = 3L * Counter;
Tmp_2 = 3L * (Counter + Range) + 1L;
OldBlue = Palette_Tmp [Tmp_1];
OldRed = Palette_Tmp [Tmp_2];
Palette_Tmp [Tmp_1] = (Range << 16L) + 4L;
Palette_Tmp [Tmp_2] = NULL;
WaitTOF ();
LoadRGB32 (ViewPortAddress (Win),&Palette_Tmp [3L * Counter]);
Delay (TimeDelay);
Palette_Tmp [Tmp_1] = OldBlue;
Palette_Tmp [Tmp_2] = OldRed;
}
return TRUE;
}
return FALSE;
}